ReachSurfaceFlow Derived Type

type, public :: ReachSurfaceFlow


Components

Type Visibility Attributes Name Initial
real(kind=float), public :: B0

bottom width, = 0 for triangular section [m]
real(kind=float), public :: alpha

angle formed by dykes over a horizontal plane [deg]
real(kind=float), public :: area

area drained by end section [m2]
integer, public :: i0

__beginning of reach
integer, public :: i1

__end of reach
integer, public :: id
integer, public :: j0

/ local reference system
integer, public :: j1

/
real(kind=float), public :: k

flood wave travel time used to compute C1, C2, and C3 [s]
real(kind=float), public :: length

reach length [m]
real(kind=float), public :: n

manning roughness coefficient [s m^(-1/3)]
integer, public :: ncells

number of cells in a reach
integer, public :: order

Horton-Sthraler order
integer, public :: routing_model
real(kind=float), public :: slope

average reach slope [m/m]
real(kind=float), public :: x

Muskingum weighting factor [-]
real(kind=float), public :: x0

__beginning of reach
real(kind=float), public :: x1

__end of reach
real(kind=float), public :: y0

/ spatial coordinate
real(kind=float), public :: y1

/

Source Code

TYPE ReachSurfaceFlow
	INTEGER :: id
	!====================================================
	REAL(KIND = float) :: x0	!!\__beginning of reach
	REAL(KIND = float) :: y0	!!/                     spatial coordinate
	REAL(KIND = float) :: x1	!!\__end of reach
	REAL(KIND = float) :: y1	!!/
	!====================================================
	INTEGER :: i0	!!\__beginning of reach
	INTEGER :: j0	!!/                                 local reference system
	INTEGER :: i1	!!\__end of reach
	INTEGER :: j1	!!/
	!====================================================
	INTEGER :: ncells !!number of cells in a reach
	INTEGER :: order !! Horton-Sthraler order
	REAL(KIND = float) :: slope	!! average reach slope [m/m]
	REAL(KIND = float) :: length	!!reach length [m]
	REAL(KIND = float) :: area	!! area drained by end section [m2]
	INTEGER            :: routing_model
	REAL(KIND = float) :: n	!!manning roughness coefficient [s m^(-1/3)]
	REAL(KIND = float) :: B0	!!bottom width, = 0 for  triangular  section [m]
  REAL(KIND = float) :: alpha !!angle formed by dykes over a horizontal plane [deg]
	REAL(KIND = float) :: k !!flood wave travel time used to compute C1, C2, and C3 [s]
	REAL(KIND = float) :: x !!Muskingum weighting factor [-]
END TYPE ReachSurfaceFlow